home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1463.ZIP / DRAW-2D.ARC / WRTHDR.PAS < prev    next >
Pascal/Delphi Source File  |  1987-06-12  |  602b  |  29 lines
  1. PROCEDURE WRTHDR;
  2. VAR
  3.    K,I,F:INTEGER;
  4.    HEADING:TEXT;
  5.    HDRLINE:SCRLINE;
  6. BEGIN
  7.    ASSIGN(HEADING,'DRAW2D.HDR');
  8.    {$I-}
  9.    RESET(HEADING);
  10.    {$I+}
  11.    K:=IORESULT;
  12.    F:=17;
  13.    IF K<>0 THEN
  14.       BEGIN
  15.          MOVCUR(10,18);
  16.          WRITE('<< File DRAW2D.HDR not found >>');
  17.       END
  18.    ELSE
  19.       BEGIN
  20.          FOR I:=1 TO F DO
  21.             BEGIN
  22.                READLN(HEADING,HDRLINE);
  23.                IF LENGTH(HDRLINE) > 79 THEN
  24.                   HDRLINE := COPY(HDRLINE,1,79);
  25.                WRITELN(HDRLINE);
  26.             END;
  27.       END;
  28.    CLOSE(HEADING);
  29. END;